(utf-8-ccl-encode): Fix use of character constants.

diff --git a/leim/quail/uni-input.el b/leim/quail/uni-input.el
index b89b9a613e65edcc2f2d5a0f7cc2e147fb724678..b8907578be03e8bf35ca5d7e0d2e5d30f788f424 100644 (file)
--- a/leim/quail/uni-input.el
+++ b/leim/quail/uni-input.el
@@ -50,7 +50,7 @@
             (write ((r0 & ?\x3F) | ?\x80)))
          (if (r0 < #x200000)
              ((write ((r0 >> 18) | ?\xF0))
-              (write (((r0 >> 12) & ?\3F) | ?\x80))
+              (write (((r0 >> 12) & ?\x3F) | ?\x80))
               (write (((r0 >> 6) & ?\x3F) | ?\x80))
               (write ((r0 & ?\x3F) | ?\x80)))
            (if (r0 < #x4000000)
@@ -58,13 +58,13 @@
                 (write (((r0 >> 18) & ?\x3F) | ?\x80))
                 (write (((r0 >> 12) & ?\x3F) | ?\x80))
                 (write (((r0 >> 6) & ?\x3F) | ?\x80))
-                (write ((r0 & ?\x3f) | ?\x80)))
+                (write ((r0 & ?\x3F) | ?\x80)))
              ((write ((r0 >> 30) | ?\xFC))
               (write (((r0 >> 24) & ?\x3F) | ?\x80))
               (write (((r0 >> 18) & ?\x3F) | ?\x80))
               (write (((r0 >> 12) & ?\x3F) | ?\x80))
               (write (((r0 >> 6) & ?\x3F) | ?\x80))
-              (write ((r0 & ?\x3f) | ?\x80))))))))))
+              (write ((r0 & ?\x3F) | ?\x80))))))))))
 
 (defun ucs-input-method (key)
   (if (or buffer-read-only